home *** CD-ROM | disk | FTP | other *** search
/ The Epic Interactive Enc…lopedia of the Paranormal / The Epic Interactive Encyclopedia of the Paranormal (1997).iso / savcode / cando / getkeywords.txt < prev    next >
Text File  |  1992-09-02  |  226b  |  12 lines
  1. ; get keywords
  2. Let word=-1
  3. Loop
  4.     Let word=word+1
  5.     MoveCursorTo STARTOF DOCUMENT 
  6.     If word<>0
  7.         MoveCursor DOWN ,word
  8.     EndIf
  9.     MoveCursorTo ENDOF LINE 
  10.     Let keyword[word]=charstobegofline
  11. Until keyword[word]="!"
  12. Let nokey=word-1